home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 28
/
028.d81
/
tips & tricks
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
943b
|
35 lines
10 rem magic menu
20 poke53280,14:poke53281,3
30 print"[147]"spc(13)"[212]ips & [212]ricks"
32 printspc(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163]"
35 print" [215]hat would you like to do?"
40 print" 1 ==> [210]un [196][207][211] [196][201][211][193][194][204][197][210]"
42 print" 2 ==> [210]un [197][206][196] [198][201][206][196][197][210]"
44 print" 3 ==> [210]un [206][213][205][194][197][210] [208][201][195][203][197][210]"
46 print" 4 ==> [210]un [210][197][211][201][211][212][193][206][195][197]"
47 print" 5 ==> [210]un 64-[193][211][211][197][205][194][204][217]"
48 print" 6 ==> [210]un 64-[212][193][208][211]"
49 print" 7 ==> [210]eturn to [204][207][193][196][211][212][193][210]"
50 gosub100:print"[215]hich? ";
52 poke198,0:wait198,1:geta$:a=val(a$)
54 ifa<1ora>7then52
55 :
60 printa$
62 ifa=1thenf$="dos disabler"
64 ifa=2thenf$="end finder"
66 ifa=3thenf$="number picker"
68 ifa=4thenf$="resistance"
69 ifa=5thenf$="64-assembly"
70 ifa=6thenf$="64-taps"
71 ifa=7thenf$="hello connect":open15,8,15,"r0:star=star":input#15,er:close15
72 :
73 ifa=7ander<>63thenend
80 print"[147]"spc(11)"[204]oading program..."
82 :
85 print"[159]loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
90 :
100 forx=1to40:a$=a$+"*":next:a$=left$(a$,40)
110 print"[144]"a$;:fori=1to23:print"*"spc(38)"*";:next:printleft$(a$,39)""
120 poke2023,42:poke56295,peek(55296)
130 return